.DO External 

.LSTOIi 

.Page 

;>>>>>>>>>>>>>>>>>>>> >>>>>>>>>>>>> > 
; > 

;> Module: Utifsl {utilities, continued } 

j > 

;> PROCEDURE Move4C< Source : PTR { \\r2 } 

-> Destination : PTR { ! !rE > 

;> > 

; > PROCEDURE fni t_£xtStack 

;> PROCEDURE Ext_Push 

;> PROCEDURE Ext-Pop 

;> FUHCTIOH Load_TOS : PTR O Ir2 > 

j> PROCEDURE Store_TOS< Ptr : PTR { ! !r2 > 

;> PROCEDURE ZeroBlock 

; > 

;>>;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

. DO Externa { 

.LSTOH 

.Page 

; > 

;> Procedure: l1oye4 

; > 

;> Tills procedure is used to moye 4 Dytes from the soiree to the 

;> destination. 
: > 

;> Inputs: 

;> Source : PTR { ! !r2 } 

;> Destination : PTR { ! ?rE ) 

; > 

;> Outputs: { none } 

; > 

;> filgorithm: 
";> BEGIN 

;> FOR i := TO 3 DO 

;> ?Oest I nation*: i ) := gSource< i ) 

; > END 

; > 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 
.FIH 

.00 internal 

.LSTOH 

.Paqe 

.FIN 



f1ove4 : 

Ld Ir1,#4 

riove4_Lp : Lde I rO , ® I { r2 

Lde §!?rEJrO 

incijs? 1 Ir2 

I new ? !rE 

DJnz !r 1,l1oye4J_p 

Ret 



.LSTOFF 

.DO External 



.LSTON 
. Page 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

- > 

;> Procedure: l1oye4C { moue from program space to data space } 

;> This procedure is used to move 4 bytes from the souce to the 

;> destination. 

; ^ 

;> Inputs: 

; > Source : PTR { ! !r2 > 

;> Destination : PTR { ! IrE } 

;> Outputs: { none ) 

; > fi I gor i thm : 

5€GIN 

; > FOR i := TO 3 DO 

;> §Destincit!on< 1 y eSource< i > 

I y END 

- > 

.LSTOFF 
.FIM 

.00 Internai 

.LSTOM 

.Paqe 

JIH 

f'1o'v*e4C-: 

Ld Iri.m 
l1oye4r:_Lp: Ldc Ir0,§f»r2 

Lde §![rEJrO 
I new ! !r2 
Incm llrE 
Dj nz ! r 1 , Mcye4CJLp 

Ret 

.LSTOFF 

.00 External 

.LSTON 

. Page 

>?»>>> > > > > > > > >>>>>>>>>> > > > > > 
Procedure : I n i t_£x tS tack 

This procedure Inii'iai i zes 14 1 dge t " s ex t erna I s tack . This 
stack is a softiuare iffipiemented structure j, and as such does not 
use the Z8's exterriai stack capabilities. 

inputs: { none ) 

Outputs: { none } 

Global Variables Changed: 
StackPtr 

fi I gor f thm : 

BEGIN 

StackPtr := TopOfStack 



END 



.LSTOFF 

.FIN 

.DO 

.LSTON 
• Page 
.F!N 



>>>>>>>>>> 



Internal 



}nit_ExtStack: 



Ld !r2,».H[BVTE. StackPtr 

Ld !r3.».L0UBVTE. StackPtr 

Ld lrO.*.HIBVTE. TopOf Stack 

Lde gl!r2JrO 

Incw I Ir2 

Ld !rO,«.LOWBS'TE. TopOf Stock 

Lde §!!r2, !rO 

Jp Bank-Ret 

. LSTOFF 

.00 External 

.LSTON 

. Page 



Procedure : EKt_F*ush 



This 
onto 



procedure pushes the current working register set 
the external stuck. 



Inputs 
Outp!jts: 
RIgorithm 



{ none ) 
{ none } 



> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 

> 
> 
> 
> 
> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Interna! 
LSTON 
.Paqe 
.FIN 



BEGIN 
FOR i := TO 15 DO 
§StackPtr := yorkingReqister E 
StQckPtr := StackPtr - 1 
END 



15 - i I 



Ext_Fush: 



Ld ScrReq4,Rp ;sa'vi'e context 

Srp «yrkJScr 

Cal I Load_TOS 



Ld IrO, !r4 ; save context 

fidd !rO,«$GF ; start at register $F 



Ext_PushJLp: 



Ld 
Ld 
Lde 



I r 1 . * 16 ; I oad 16 req 1 s ters 

!rF'.§lrO" 

f!!r2, !rF 



Dec ? rO 

Decw !!r2 

D j nz ! r 1 , Ex t_PushJ_p 

Can Stora_TOS 

Ld Rp^ ! r4 ; restore context 
Jp Bank_Ret 

.LSTOFF 

.DC External 

.LSTOH 

-Page 

•>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

; ^ 

;> Procedure: Exi_Pop 

;> This procedure pops 16 locations from t^le externa! stack 
;> into the current working register set. 

• > 

: > Inputs: { none } 

• ■> 

;> Outputs: { none } 

; > fi ! gor I ihm . 

;> BEGIN 

;> FOR ! := TO 15 DO 

StockPtr := StockPtr I , 
;> yorki nqReqisterSet f i ] := fStackPtr 

i> END 

j > > > > > > > y > > > > > > > > > > > > > > > >?•>>?•>>?•;■?• 
.LSTOFF 
.FiH 

.DO Internal 

.LSTOH 

. Page 

.FiN 





Ld 
Srp 


ScrReg4.Rp ;saye context 
«Mrk^Scr 




Cat 1 


Load_TOS 




Ld 


!rO, !r4 ; save context 




Ld 


! r 1 ^ * 16 ; i oad 16 reg i s ters 




1 rtcm 


I!r2 ; StockPtr := StackPtr 


Ext_Pop_Lp : 


Ldei 
Djnz 


§ 1 r-o . § 1 1 r2 
!r1,Ext_Pop_LP 




DecM.j 


i {r2 ; point at TOS 




Can 


Store_TOS 




Ld 
Jp 


Rp^!r4 ; restore context 
Bank_Ret 




.LSTOFF 





.DO External 

.LSTOH 

. P»3ge 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Function: Load_TOS 

> 

> This functions returns a ptr to the current top 

> of the external stack. 

> inputs: { None ) 

> Outputs: 

> Load_TOS : PTR { ! !r2 } 

> R I gor i thm : 

> BEGIN 

> Load_TOS := StackPtr 

> END 

:> '? y '? '? y y y y y y > > :> y > y y y y y y > y y y yyyy y y yyyy 
LSTOFF 
FIN 

DO Irsterrioi 

LSTON 

Paqe 
Firi 



Load_TOS 



S f4 



!rO,«.HIBVTE. StackPtr 
! r 1 , » . LOUBVTE . S tackP tr 
!r2 €*! !rO 
i nciju ! ! rO 
Lde ! r3 , § ? ! rO 
Bet 

.LSTOFF 

.00 Exte.fTiGl 

.LSTON 

.Page 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

;> Procedure: Store_TOS 

;> This procedure stores the contents of Pt.«" into StackPtr 

Inputs: 

;> Ptr : PTR { !!r2 > 

;> Outputs: { none } 

; > R I gor i thsii : 
■ "> 

■> BEGIN 

;> StackPtr := Ptr 

; > END 
- "> 

\>y>yyy yyyy yyyy y >>>>>>>> yy yyyy »>yyyy 
.LSTOFF 
.FIN 

.00 Internal 
.LSTON 



-Page 
.FIN 



5tore_T05: 



Cp ?r3.».L0UBVTE. StackPtr ; check for- stack underflow 

Jr Ugt,St_TOS 

Srp «WrkJSys 

Pop !r4 jSQMe some history of stack frame 

Pop !r5 

Pop ! r6 

Pop !r? 

OqI f abort 

St_TOS; Ld !rO,«.HIBVTE. StackPtr 

Ld !r1 .tt.LOWBVTE. St.^ckPtr 

Lde gfirO, «r2 
\tim \ !rO 
Lde §!!rOJr3 
Ret 

.LSTOFF 

.DO External 

.LSTON 

. Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

> Procedure: ZercsEHock 

> This procedure zeros out the 532 blocks pointed to by the 

> input paranieter 

> inputs: 

> BlockPtr : PTR { ! !r2 } 

> Outputs: { none > 

> > > > > > > > > >>>>>> > > > > > > > > > > !>>:*> :> :> > :> 

.LSTOFF 
.FIN 

.00 Internal 

.LSTON 

. Paqe 

.FfN 

ZeroB I ock : 

Ld ?rE,#.NfBVTE. 532 

Ld ir-F, «.L0y8VTE. 532 

Clr !rO 

ZeroBlk_Lp: Lde §??r2, !rO 

I new \ ir-2 

Decaif ! !rE 

Jr M2,ZeroBlkJ_p 

Jp Bank_Ret 

.LSTOFF 

-DO External 

-LSTON 

.Paqe 



> Procedure: ZeroHeader 

> 

> This procedure zeros the sector gap, header sync gap. 

> header field, and data sync field. 

> 

> Inputs: { none } 

> Outputs: { none ) 

>>>:>>:>>>:>>>>>>>>>>>>>>>>>>>>>;*>>> 
.LSTOFF 
.FIN 

.DO Interna! 

.LSTON 

. Page 

.FIN 



'eroHeader : 



'eroHdr_Lp 



Ld !r1,«C l-Bufferl - Ur iteflrray > 

Ld lr2,«.H}BS^TE. Uriteflrray 

Ld !r3.#.L0WBVTE. WritaSrraq 

CIr !rO 

Lde §!!r2, !rO 

Incm llf-2 

j nz ! r 1 , ZeroHdrJLp 

Rnd Excpt_Stai , s$FF-Hzero_Stat-Euf JDaiTioga 

dp Bank-Bet 



